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MMGTST.SR MMGADJWSL.MAR; 1 


1; 
: ; ; MEMORY MANAGEMENT SERVICES TEST #4 
4: 
° 5 TITLE MMGAD JUS - TEST OF SADJWSL SYSTEM SERVICE 
0 § . IDENT 4 
09 8 ITIIIIITIIIIITITTI IIIT T IIT IITITITI TIT TiTitititiiiiiiiititiiitiiiiiitiitiit iin 
7* * 
000 10 ;* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY + 
000 11 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
B88 1g i* ALL RIGHTS RESERVED. : 
9000 14 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
000 15 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICEN SE AND WITH THE * 
0000 16 3* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER : 
0000 17 ;* COPIES THEREOF may NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 18 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
9009 3 i TRANSFERRED. ? 
0000 1 :* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 ¢ 3* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
4 $7 - CORPORATION. : 
9000 33 :* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
000 § 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
$000 Bis ° 
0000 9 ITIIIIIIIIIIIT ITIL ITIL TTT TILT LLLILiLiLi TLL LLL ELL LLL 
00008) + 
4444 ¢ ¥ FACILITY: USER MODE MEMORY MANAGEMENT SERVICES TEST 
9009 : : ABSTRACT: THIS SET OF ROUTINES TESTS THE MEMORY MANAGEMENT SERVICES 
0000 i : ENVIRONMENT: USER MODE DIAGNOSTIC 
9000 38 : AUTHOR: PETER H. LIPMAN , CREATION DATE: 6-JAN-77 
9009 40 : MODIFIED BY: 
0000 42 ; v02-012 $HZ0002 Stephen Zalewski 20-Aug-1980 
0000 re ; Incorporated this program into MMG test package. 
0000 45: v02-012 T$¢0003 Thomas Clark 25-Jul-1980 
000 46 ; dded farther tests to system services tested in this 
0000 47 ; nee am 
0000 48 ; 
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MMGAD JWSL - TEST OF SADJWSL SYSTEM SERVICE 16-SEP-1984 02:01: AX/VMS Macro v04-00 P | 
y0L 000 DECLARATIONS meee iaRe BEkhiss PARCVES Sacto VOR OO many 2% (3) 

: .SBTTL DECLARATIONS 

0 : ; INCLUDE FILES: 

4 .SBTTL MACROS 

+ MACROS 

8 Hi : MACRO LIST 

00 59 “LIST  MEB 

00 60 [ENDM = LIST 

80 6¢ MACRO NLIST 

000 6 NLIST MEB 

900 64 ENDM LIST 

000 66 -MACRO ADJWSL PAGCNT,LIMIT=#0,WSETLM, STATUS=S*#SS$_NORMAL 

000 67 LIST 

000 68 MOVZWL STATUS,R3 

000 69 MOVL  PAGCNT.R4 

000 70 MOVL = LIMIT,R5 

000 71 IF B,WSETLM 

000 es “IF DIF ,<LIMIT>,<#0> 

909 MOVAL W*WRKSETLIM.R6 

CLRL se R6 


MOVAL WSETLM,R6 
.ENDC 
BSBW ADJWSLSUBR 
NLIST 
-ENDM ADJWSL 


MACRO CRETVA STARTVA,ENDVA,STATUS=S*#SS$_NORMAL , - 
INADR=W* INRANGE , RE TADR=W*RETRANGE 


LIST 
IF NB, STARTVA 
MOVL — STARTVA,W* INRANGE 
ENDC 
“IF NB, ENDVA 
MOVE ENDVA,W* INRANGE +4 
MOVZWL STATUS,R3 
MOVAL  INADR,RO 
MOVAL RETADR,R1 
BSBW CRETVASUBR 

NLIST 


.ENDM = CRETVA 
.MACRO DELTVA STARTVA,ENDVA, STATUS=S“#SS$_NORMAL, - 
ee INADR=W* INRANGE , RE TADR=W*RETRANGE 

IF NB, STARTVA 

MOVE STARTVA,W* INRANGE 

TIF NB, ENDVA 
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SOOO OCOCCOOCOOOOOCOOCOOOOOOOOOOOOSOOSOOoOSSoSo 
SOOooooooooooooooooooooooooooooooao 
BSDODOOOOOWOO OOOO OO 000000000 09 09 0909 09098 INI NINN 
AIIEWN $9 ODNAUES WN $$ O OONAUESWN —OOONOUS 
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00 107 MOVL  ENDVA, W* INRANGE +4 
1 : .ENDC 
0 1 MOVZWL STATUS,R3 
110 OVAL INADR,RO 
0 111 MOVAL RETADR,R1 | 
0 118 BSBW  DELTVASUBR | 
11 NLIST | 
99 114 .ENDM DELTVA | 
0900 116 -MACRO EXPREG PAGCNT,REGION=#0,STATUS=S“#SS$_NORMAL ,- 
900 117 ee RE TADR=W*RE TRANGE | 
0000 118 MOVZWL STATUS,R3 
000 120 MOVL  PAGCNT.R4 
0000 121 MOVAL RETADR.R1 
0000 (1 : IF 1DN, <REGION>, <#0> 
0000 1 CLRL sR 
0000 124 IF | 
0000 125 MOVL ——- REGION, RS 
$000 138 aspu EXPREGSUBR | 
0000 128 NLIST | 
0000 1¢9 .ENDM EXPREG 
0000 130 
0000 131 -MACRO LKWSET STARTVA,ENDVA,STATUS=S°#SS$_WASCLR,- 
0000 135 INADR=W* INRANGE , RETADR=W“RETRANGE 
0000 «13 LIST 
0000 134 IF NB, STARTVA 
0000 135 MOVL  STARTVA, W* INRANGE | 
0000 136 .ENDC | 
0000 137 .IF NB, ENDVA 
0000 138 MOVL —_- ENOVA, W* INRANGE +4 | 
0000 139 .ENDC 
0000 140 MOVZWL STATUS,R3 
0000 141 MOVAL _INADR,RO 
0000 142 MOVAL RETADR,R1 | 
0000 14 BSBW  LKWSETSUBR 
0000 144 NLIST 
0000 145 .ENDM = LKWSET 
0000 146 
0000 147 .MACRO ULWSET STARTVA,ENDVA,STATUS=S*#SS$_WASSET,- 
0000 148 INADR=W* INRANGE , RE TADR=W“RETRANGE 
0000 149 LIST 
900 150 IF NB, STARTVA 
000 151 MOVL § STARTVA,W* INRANGE 
6000 138 .ENDC 
99 15 “IF NB, ENDVA 
0 154 MOVL § STARTVA,W*INRANGE+4 | 
00 155 .ENDC | 
0 136 MOVZWL STATUS,R3 | 
0000 15 MOVAL INADR,RO | 
00 138 MOVAL RETADR,R1 | 
000 15 BSBW ULWSETSUBR 
99 160 NLIST 
161 .ENDM ULWSET | 
00 0 188 .MACRO RANGECHK ONOROFF 
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“IF IDN. <ONOROFF>, <OFF> | 
_ a #CTLSM_RNGCHK,W*CTLFLG | 
BISL  #CTLSM_RNGCHK,wW*CTLFLG | 
LENDC 

iciss 


| 


— 
NNAAAAAO 


—OOONOUE 
. 
oo 


Sz 


H 1 
= TEST OF SADJWSL SYSTEM SERVICE 
MACROS 


EQUATED SYMBOLS: 


Sete te 


CONTROL 


,0,< 
<MEMLOOP, ,MASK>,- : 
SREDO ENTIRE T 


;PUT PROCESS I 
;ON IF CHECKIN 


> 
PRT$C_NONE=104 
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BITS IN R3 
RY WRITE oc 
EST FROM TOP 
D IN EACH TYPEOUT 
G RETURN RANGE 
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20 53 53 45 $ 


Dat 


0000 


00000008 


0000010 
a990000¢ 
000001 
0000001¢ 
00000003 
00000024 
00000028 
00000040 
00000030 
00000038 


00000044 


000000DC 


000000F A*000000A0' 
000000F 6*00000004' 
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SAGE STRINGS ae Yi 84: 9}: 33 LAMGY St MMGADJWSL.MAR; 1 . “i 
-SBTTL DATA STORAGE AND MESSAGE STRINGS 
-PSECT DATA®,PAGE ,WRT ,NOEXE | 
INRANGE : | 
-BLKL 2 
RETRANGE : | 
CTLFLG: :LONG CTLSM_TSTLOOP!CTLSM_PIDMSG | 
SAVEND: .BLKL 1 | 
PID: -BLKL 1 ;PROCESS ID 
MAXPASSCNT: | 
«LONG 3 ;NUMBER OF PASSES TO RUN 
-BLKL 1 ;PASS COUNTER 
WRKSETLIM: 
-BLKL 1 ;RETURNED NEW WORKING SET LIMIT 
WRKSETDEF : 
-BLKL 6 :DEFAULT, MAX, MIN WORKING SET LIMIT 
WRKSE TMAX=WRKSE TDEF +8 | 
TMIN=WRKSETDEF +16 
WRKSE TMAXADD 
-BLKL 1 iT an ton maa 
FAB: SFAB FAC=PUT, FNA=OUTNAMADR, FNS= OUTNAMS IZ B FOR OUTPUT 
RAB: $RAB F AB=F AB ;RECOR rb’ ACCESS ao FOR OUTPUT 
MSGLEN: .BLKL 1 ;RETURN LENGTH FROM FAO 


NSGBUFD: -LONG MSGBUF S1Z,MSGBUF [MESSAGE BUFFER DESCRIPTOR 
"LONG MSGBUF-PIDMSG,PIDMSG 


weeee DO NOT SEPARATE OR REORDER THE FOLLOWING LINES 


GBUF ID: 
CRLF: .BYTE %015,*012 
ertay net $ 


MSGBUF: .BLKB 160 ;MESSAGE BUFFER USED BY FAO 
MSGBUF $1Z=.-MSGBUF 


wexee DO NOT SEPARATE OR REORDER THE PRECEEDING LINES 
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MMGAD JWSL - TEST OF SADJWSL SYSTEM SERVI 16-SEP-1984 02:01:5 AX/VMS Macro V04-00 Pa 1 
v04-000 DATA STORAGE AND MESSAGE STRIN 3 SEp-1984 9:97:33 oe ( 
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0000000A ‘00000063 
0000006D ‘00000063 
00000196'00000072 


CRETVAERRSIZ,CRETVAERRADR 
a DELTVAERRSIZ,DELTVAERRADR 
1 EXPREGERR: 


-LONG EXPREGERRSIZ,EXPREGERPADR 
LKWSETERR: 


DOWrrrrowowvon 
PADS HSOON LS HLOO FSO SF SOOFLOOOWWD 


00000000" 00000063 _ pre LKWSETERRSIZ,LKWSETERRADR 

00000133'00000063 06 ecieeliale ULWSETERRSIZ,ULWSETERRADR 

00000208 ' 00000068 3 wL ADJWSLERRSIZ,ADJWSLERRADR 
3 09 WSETLMCTL: 


00000270°0000004E 10 LONG WSETLMCTLSIZ,WSETLMCTLADR 


11 RANGERR: 
000002BE '0000004F 3 au .LONG RANGERRSIZ,RANGERRADR 
0000030 "00000039 : 


00000346 '00000042 


00000388" 00000003 " LONG PIDCTLSIZ,PIDCTLADR 


RAR AAARAAAA RRO AAC IAA 


WAWIWIWWAWW 


MmMoVIVIWIAOAoOoO 


— SS 


4 .LONG IDMSGSIZ,IDMSGADR 
: ~~" {LONG RUN1_MSGSIZ,RUN1_MSGADR 
8 


N15 
WSL SYSTEM SERVICE 16-SEP-1984 02: AX/VMS 04- p 
mi TS ay eS A tt itt Dl 


~SBTTL INITIALIZATION 
PITIIIIITILILILILILILILT LT LLL LLL LLL LLL LLL LLL LLL LLL LEE EEE EEL 


; PROGRAM DESCRIPTION: 
THIS gree 4 TESTS THE FOLLOWING SYSTEM SERVICES: 


Cc 
os 


THE 4 DOES SEVERAL weer SET LIMIT at hy a TO CHECK 
THAT THE SERVICE PERFORMS CORRECTLY. FOLLOWING THIS THE PROGRAM 
FORCES Raitt les: ERROR shy FOR THE ABOVE MENTIONED SYSTEM SERVICE. 
REE PASSES ARE “a HROUGH ig TEST LOOP TO er RE PATH 
REPEATABILITY. ONLY REGULAR VA SPACE IS USED IN THIS TEST PROGRAM 


AS THE ADJWSL SYSTER SERVICE 1s NOT AFFECTED BY MEMORY ALLOCATION. 


REFER TO MASDS:CMMGTST.COMJMMGTST.RAP FOR FURTHER INFORMATION 
REGARDING JUST HOW COMPLETELY THE AVOCE MENTIONED SYSTEM SERVICES 
ARE TESTED BY THIS PROGRAM. 


onde baoeas 
: THIS PROGRAM NEEDS NO SPECIAL PRIVILEGES TO EXECUTE. 


FRR REAR AERA AAA EAA AERA AAERAA ARERR AERA AEREERA RAE 


: START HERE 


© Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 
~ 
m 


Fe ek ek ek ak te ae ek tk Dt ek ek ke ee teh teh Ue A ate Mie Mh ah ah ap apap apa ap ap apraprad ad apap apap ap apap apap ap apap ad ap tapind 
PRD PAED GG & Be BS EE WWII WIIronorororonononn Zz 
MEW MOOD NAUES WN (OOO NAUE WN OOD NOU EW OOONOUS wn 


SOOOCOCOCOCOSOOOOSCOSCOOSOSOSOSOOVOOOOOCSOOCOCOCOOO OOOO OOOOOOOOOOOOOOoOO F- 
OOO ODWWWWOWOO IVI EF HSL KOO NTWMMMNMMMNMMMMMMMMMMMMmMmMmmmmmmmrn Cc 
TOWOM OO WWMM MN OPO PDN THF MALLS LLLP LLL LPL LLLP LPP SLES NT 


0000 START: .WORD 0 sENTRY MASK 
$OPEN W*FAB [OPEN THE FILE ‘$OUTPUT’ 
0E 50 £9 BLBC RO, 108 ‘BRANCH IF ER 
SCONNECT WARAB SCONNECT THE RECORD ACCESS BLOCK 
09 50 £8 BLBS 208 
10$:  $EXIT_S R sEXIT WITH STATUS IN RO 
00000020'EF 01 00 20$:  MOVL ~ #1,PASSCNT SINITIALIZE THE PASS COUNT 
SRESUME_S PID :SET UP PROCESS ID 
50 00000018'EF  3¢ MOVZWL ~PID,RO 
SFAO_S PIDCTL,MSGLEN,PIDMSGD,RO sINIT THE PROCESS ID STRING 
: INFORM OPERATOR THAT TESTS WILL BE RUN USING ONLY NORMAL VA SPACE 
SFAO_S RUN1_MSG,MSGLEN,MSGBUF D s INFORM OPR NORMAL VA USED FOR TEST 
O32F 30 BSBW” TYPEMSGBUF 

0010'CF 04 CA aan BICL  #CTLSM_PIDMSG,W*CTLFLG sSTOP PROCESS ID FROM PRINTING 
RANGECHK ON 

0010'CF 08 C8 B #CTLSM_RNGCHK ,,W*CTLFLG 
$FAO_S 1DSG MSGLEN, MSGBUFD ,PASSCNT 

0305 30 BSBW YPEMSGBUF 
EXPREG YY 
53 Qn 3¢ MOVZWL $*#SS$_NORMAL ,R3 
54 201~—CédO MOV r 
51 0008" CE DE ROVAL W*RETRANGE ,R1 
01BF 6 30 EXPREGSUBR 

52. 0008'CF 7D MOVQ  W*RETRANGE,R 

0000°CF 38 7D 67 MOVa ,W* INRANGE 

0014"CEF DO MOVL R2.W*SAVEND 


NT eee 


—ZTOMIODWZ ES KCK TO MMOOVZ™T Sl ACK IFO WM OOCW!™ Sr ACH LO ™MIOMZ Sr ACH TO MIOOW 
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MMGAD JWSL - TEST OF SADJWSL SYSTEM SERVICE 16-SEP-1984 AX/VMS Macro v04-00 Page 1 
v04 ADD TO WORKING SET TEST g- SEP=1984 t 8%: g}: 33 MMGTST. SRCJ MMGADJWSL.MAR; 1 ° 8) 
4A ? .SBTTL ADD TO WORKING SET TEST 
aA , + TEST ADJWSL 
4A 7% CRETVA W°SAVEND . 1430-1 ASSS VASEULL 
Q000'CF  0014'CF 00 4A MOVL SAVEND INRANG 
0004 ' CF SrFFEErE F p 4A MOVL Was -1 oP NmaNoes4 
5 Bhs F 6O3C 4B¢ MOVIWL #SS$_VASFULL,R3 
20 OO'CF DE 048 OVAL. w' ANGE 
1 0008'CF é 4BC MOVAL U? INRANGE RO” 
OEB 4C1 BSBW CRETVASUB 
7E 909 "CF «67D «6(06C4 = 375 mova *RETRANGE , (SP) ;SAVE RANGE FOR DEAD PAGE TABLE TEST 
5A 0028'CF DE 0469 i: MOVAL WWRKSETDEF,R10 
4CE 37 ADJWSL #0. gSETLME (R10) 4 :FIND DEFAULT WOR“ING SET LIMIT 
53 01 «23C «(O4CE V2WL seasss _NORMAL ,R3 
54 00 DO 0401 MOVE »R4 
55 00 DO 0404 MOVL RS 
56 OBA : 407 MOVAL AOS R6 
0258 O4DA BSBl ADJWSLSUBR 
0262 30 0400 378 BSBW § MAXPAGLOCK : DETERMINE MAXIMUM | PAGES THAT MAY BE 
Q4e0 79 ADJWSL Wa30° WSETLM=(R10)+ SEXTEND LIMIT T 
53° 01 3¢ O4ED MOVZWL S*°#SS$_NORMAL,R3 
54 40000000 8F 00 04E2 MOVL #150, R4 
55 00 DO O4EA MOVL 
56 =6BA ODE: Ss«OOGED MOVAL tRio)+ R6 
9242 3 O4F9 BSBW  AdJWSLSUBR 
0040°CF  O030°CF  0028'CF ¢ 04F3 380 SUBL3 _W*WRKSETDEF ,W“WRKSETMAX , W*WRKSE TMAXADD 
O2C2 30 O4FD 381 BSBW § MAXPAGLOCK :DETERMINE MAX PAGES LOCKED 
0500 382 ADJWSL #<1a5 >, WSET LN= (R10)+ [CONTRACT LIMIT TO MIN 
53 01 «oC 9500 MOV §*#SS$_NORMAL,R3 
54 0000000 8F 00 050 iM ei #-<1a30>,R4 
55 00 DO O50A MOVL  #0,R5 
56 OBA DE 50D MOVAL  (R10)+,R6 
0222 319 BSBW ADJWSLSUBR 
O2aC 30 0513 383 BSBW § MAXPAGLOCK :NO .OF PAGES THAT CAN BE LOCKED 
0516 385 : WITH MINIMUM WORKING SET LIST, TOUCH A PAGE IN EACH PAGE TABLE 
0916 86 : TO FORCE THE DEAD PAGE TABLE LOGIC 
03 BA 0516 388 POPR #*M<RO,R1> ;RECOVER RANGE FROM CRETVA 
318 89 TOUCH_EACH_PT: 
60 06 051 90 INTL (RO) 
FFF4 50 00010000 BF 51 F1 314 31 ACBL _——R1,#*X10000,R0, TOUCH_EACH_PT 
50 0028°CF O038'CF C3 §2 4 38 SUBL3 WPURKSETMIN, W*URKSETDEF, RO 
52c 0 394 ADJWSL RO,WSETLM=W*WRKSETLIM sBACK TO DEFAULT SIZE 
53 01 «3c. «(052C MOVZWL S*#SS$_NORMAL ,R3 
54 «500 «(DO s«OOS oF MOVL  RO,R4 ~ 
55 00 00 05 2 MOVL 4#0.R5 
56 0024'CF DE 5 MOVAL W°URKSETLIN, R6 
01F8 3A BSBW  ADJWSLSUB 
53D 0-395 RANGECHK OFF 
0010'CF 08 CA 0530 nt : acTLsH RNGCHK,W°CTLFLG 
248 396 DELTVA f a30-1,W*SA 
0000' CF SFFFEEEE BF 00 54 OVL #1330~1 NRANGE 
0004'C 9g14" p 248 HOVE AVE, UE RAAAEE SS 
C 055 MOVZWL Bape NORMAL ,R3 


C 16 
woeesae™ ode UenktRevEes TREE” SEMICE TACEERCHBRE GFSBHSE UACVEF.SRESGMARS0R. sn 29° UB 
Sf BBOREE BE 58 mova McaBvaNGe® 
061 3 or RANGECHRE Se DELTVASUBR 
0010'CF 08 CB 368 BISL  #CTLS$M_RNGCHK,W*CTLFLG 
567 0-398 SFAOL_S WSETLMCTL,MSGLEN,MSGBUF D, WRKSETDEF 
0201 30 0584 399 BSBW  TYPEMSGBUF 


reba 


Me ® - 
ORC 
- 7 

? 
587 
587 
587 
587 
58A 
58D 
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SAD JW YSTEM SERVICE hes 
ERRORS 


4 1 -SBTTL ADJWSL FORCE ERRORS 
c § : FORCE ERRORS FROM ADJUST WORKING °° LIMIT 
405 ° ADJWSL #1,WSETLM=W*4,STATU' ag SSS-ACCvIO y;WSETLM NOT ACCESSIBLE 
MOVZWL #SS$_ACCVIO,R3 
MOV #1 RG 
MOVL #0, RS 
MOVA 


L wed, R6 
BSBW ADJWSLSUBR 
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ADJWS = TEST OF SADJWSL SYSTEM SERVICE 16-SEP-1984 02:01: AX/VMS Macro V04-00 Page 15 
voe-b00 ADJWSL FORCE ERRORS ~$eb= 138s 89 :9);23 YRMGYST. SRCIMMGADJWSL.MAR;1 9 (10) 
OC 0020°CF 1C'CR F3 0598 407 AOBLEQ W*MAXPASSCNT,W*PASSCNT, 160$ 
BSE SE Br sos, gee 
SAS 409 SEXIT_S RO 
FEAF 31 O05AC 410 160$: ®BRW ~ RSTART 


MMGAD JWSL - 1 
v04= SUBROUT 
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BTTL SUBROUTINES TO CALL THE SERVICES 


D STATUS 
OUTPUT: 
R2 PRESERVED 
ERETVASUBR: 
ERROR CONTROL STRING 


RO 
R1 
R3 


RETADR 
DESIRED STATUS 


R2 PRESERVED 


ELTVASUBR: 
SDELTV ALS (RO),(R1) 
MOVAL “W*DELTVAERR,R1 
BRB CHECK1 


: OUTPUT: 
d 


;ERROR CONTROL STRING 


SFP NAWNIWINNINININIGIPPPNONNR MONON SP OO OS —COO 
NRO ODNAUES WN OOD NIA UE SO OONOUE tu 
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ULWSETSUBR: 


;ERROR CONTROL STRING 
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1) 


aw 

~Wen 
2S 4 

aU 


(RO 
w*U 
CHE 


-5 


SULWSET 
MOVAL 
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R3 SBRAMEH IF AS $a 
$_VASFULL,R3 : IF EXPECTING VIRTUAL ADDRESS SPACE 
$_EXQUOTA,RO ; THEN EXCEEDS QUOTA MAY ALSO BE RETU 


SADDRESS OF ERROR 
AEGLEN, MSGBUFD,R4,RO,R3,- 
NGE. INRANGE+4, Petnincé™ RETRANGE +4 


ae 


RANGE CHK :GO CHECK THE RETURN RANGE 


19 
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;ERROR CONTROL STRING 
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MMGADJWSL - TEST OF SADJWSL SYSTEM SERVICE 16=SEP=1 :53  VAX/VMS ro v04-00 Pa 
v04 SUBROUTINES TO CALL THE SERVICES §-8 EP=19 3b2 of: gh: 33 LRMGTST. CIMMGADJWSL. MAR; 1 ” (a) 
66 09 CHECK2: 
53 g bt os 10 CMPL ~—s_ RO R3 :STATUS AS DESIRED? 
1 66 11 BEQL 10$ ‘BRANCH IF YES 
6 dD $68 19 PUSHL 6 
56 6046 AE DO $p 1 MOVL  4(SP),R6 : ADDRESS OF ERROR 
671 14 $FAO.S (R1),MSGLEN MSGBUFD, R6,RO,R3,R4,R5,- 
671 15 RETR TRANGE. RE TRANG 
0040 8F BA 69 216 POPR so #*M 
OOES 39 6A 1” BsBW TYPERSGBUF 
0000" CF 0008" ¢F 00 GAG 19 10$ OVL Apegere ,W* INRANGE ;MAKE INPUT RANGE LOOK LIKE CRETVA/D 
54 54 09 8 Deb 1 ASHL 
0004'cF O000°CF 54 C1 0681 ; ADDL3 +e ‘U* INRANGE. W* INRANGE +4 
00 11 0689 3 : BRB RANG yAND CHECK THE RETURN RANGE 


K 16 
MMGAD JWSL - TEST OF SADJWSL SYSTEM SERVICE 16-SEP=1 AX/VMS ro v04-00 Page 21 
v04=000 SUBROUTINES TO CALL THE SERVICES g-3EF- 19 38 84: gh: 33 YRMGT ST. eee CIMMGADJWSL.MAR:1 © day 
68B $ RANGECHK: 
73 0010'CF 93 E1 0688 BBC wc TL Sy RNGCHK,W*CTLFLG,40$ ;BRANCH IF RANGE CHECK IS DISABLED 
70 59 61 8 BLBC TIF ERROR IN SERVICE, SKIP THE RANGE 
50 900° ¢F D 06C4 MOVG Oe INRANGE , RO [RO = STARVA, R1 = ENDVA 
1 9 D1 ¢9 ' CMPL RO R1 :WHICH DIRECTION? 
1 1A C4CC BGTRU l § ‘BRANCH IF BACKWARDS 
04 1F éce 5 BLSSU SBRANCH IF FORWARDS 
0c 50 1& €0 600 : BBS #30,R0,10$ [FOR EQUAL, PO SPACE FORWARDS, P1 BA 
6p4 5 : REQUESTED RANGE IS FORWARDS 
50 OFF ar AA 06D4 “ Ss: BICW #*X1FF,RO 7FROM BYTE 0 OF STARTVA 
51 OFF 8F AB 0609 8 BISW #*X1FF-=R1 ‘THROUGH LAST BYTE OF ENDVA 
OA 11 O6DE 33 BRB 20$ : 
O6E0 341 t GOING BACKWARDS IN VIRTUAL ADDRESS SPACE 
50 OFF 8F AB Oee0 278 10$:  BISW weXIEE, RO ;LAST BYTE OF STARTVA 
51 OFF 8F AA 06E5 544 BICW #*X1FF.R1 : THROUGH FIRST BYTE OF ENDVA 
0008'CF 50 D1 O6EA 545 20$:  CMPL RO XURETRANGE [1S THIS WHAT WAS RETURNED? 
07 12 O6EF 546 BNEQ ‘BRANCH IF NOT, ERROR 
Oooc'cF 51 D1 O6F1 547 CMPL  R1,W*RETRANGE+4 [THIS ONE O 
3c O13 «(06F6 | 548 BEQL 6-408 ‘BRANCH LF sles. RANGE OK 
53 DD «O06F8) «= 549 30S: += PUSHL”—s RB i SAVE REGISTER 
53 04 AE DO O6FA 550 MOVL 4 (SP),R3 -TO USE FOR ERROR PC 
O6FE 551 SFAO_S <W*RANGERR>,MSGLEN,MSGBUFD,R3,- :FORMAT THE ERROR MESSAGE 
O6FE 358 INRANGE , INRANGE +4 , RETRANGE , RE TRANGE +4 
8 BA O72F 55 POPR #*M<R3> sRESTORE SAVE REGISTER 
0054 30 0731 554 BSBW TYPERSGBUF [OUTPUT THE ERROR MESSAGE 
05 0734 555 40$: SB SAND RETURN 
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L SYSTEM SERVICE - 4 02:01:53 VAX/VMS o v04-00 Page 2 
ALL THE SERVICES Seer E8e BFGF ks PAREVES Bec yee Oe mans1 2% (99) 
: INPUT 
: R3 = DESIRED STATUS 
; R4 = PAGCNT 
; R5 = DESIRED LIMIT 
3 R6 = ADDRESS TO RETURN NEW WORKING SET LIMIT 
; OUTPUT: 
; R2 PRESERVED 
ApuwSLsuBR: 

SADJWSL_S R4, (R6) 

IFNOWRT #4, (R6), 108 ;SKIP WORKING SET LIMIT CHECK 

[IF NEW LIMIT WAS NOT RETURNED 

TSTL = RS SALSO SKIP THE CHECK 

BEQL -:108 [IF ZERO WAS SPECIFIED 

CMPW sR, (R6) SOTHERWISE CHECK DESIRED WORKING 

:SET LIMIT AGAINST THAT RETURNED 

‘ies BNEQ 208 [BRANCH IF ERROR 

CMPL = RO, R3. :STATUS AS DESIRED? 

BEQL 308 [BRANCH IF YES 
208: 

PUSHL R7 

OVL 4(SP),R7 “ADDRESS OF ERROR 

$FAO_S ADJWSLERR, MSGLEN, MSGBUFD,R7,RO,R3,- 

4,WRKSETLIM,RS 
POPL R 
BSBW §_ TYPEMSGBUF 


M 16 
MMGADJWSL - TEST OF SADJWSL SYSTEM SERVICE 16=SEP=19 AX/ vi © V04-00 Pa 
04-000 MISCELLANEOUS SUBROUTINES Ferre 8s OF: eb ee eyes eee ee Oe mans 2% caey 
? 31 .SBTTL MISCELLANEOUS SUBROUTINES 
7 38 : TYPE A MESSAGE 
7 9% : MSGBUF IS THE ADDRESS OF THE BEGINNING OF THE STRING 
f 99 : MSGLEN CONTAINS THE SIZE (IN BYTES) OF THE STRING 
07 8 299 TYPEMSGBUF : 
50 OOD8'CF DO 0788 298 MOVL §W*MSGLEN,RO :SIZE T 
51 OOFA'CF DE 078D 599 MOVAL W*°MSGBUF .R1 ZADDRESS 0 RI 
08 0010'CF 02. €1 19 600 BBC #CTLSV_PIDMSG,W*CTLFLG,5$ ‘BRANCH IF CoP ROCESS ID REQUIRED 
51 OOEC'CF DE 798 601 MOVAL W*MSGBOFID,R1 SADDRESS INCLUDING PID MSG 
50. OF C 9790 60¢ - ADDL §$*#<MSGBUF-MSGBUF ID>, RO SINCLUDE EXTRA BYTES ON COUNT 
OoBC'CF 51 DO aN 604 MOVL  R1,W*RAB+RABSL_RBF :SET BUFFER ADDRESS 
00B6'CF 50 BO O7A5 605 MOVW RO, W°RAB+RABSW_RSZ AND 
O7AA 606 SPUT  W*RAB ‘OUTPUT THE MESSAGE 
0150 €9 0785 60 BLBC RO. 20$ 
05 0788 608 KSB 
0789 609 20$:  SEXIT_S RO ZEXIT WITH ERROR STATUS 
O7C2 610; 
ore 611 t INPUT: 
o7¢ gi : INRANGE CONTAINS INFINITE RANGE OF ADDRESSES PREVIOUSLY CREATED 
O7C2 614: RETRANGE CONTAINS A RANGE OF ADDRESS 
4: oi? 3 R10 CONTAINS ADDRESS TO STORE THE # OF PAGES SPANNED BY RETRANGE 
07C2 617 : OUTPUT: 
07C 618 ; 
O7C2 619: R10 UPh**ED TO POINT AT NEXT LONG WORD 
Bets 620 ; 
07¢ 621 MAXPAGLOCK: 
07C2 622 LKWSET STATUS=#SS$ LKWSETFUL :LOCK AS MANY AS ALLOWED 
53 0194 8 3¢ Orcs MOVZWL #ss$ LKWSETFUL,R3 
50 OO00'CF DE O7¢ MOVAL W*INRANGE,RO 
51 0008'CF DE O7cc MOVAL U*RETRANGE R1 
FE 30 0701 BSBW LKWSET 
50 O00C'CF O008'CF C3 07D4 623 SUBL3. W*RETRANGE ,W*RETRANGE+4,RO ;NUMBER OF BYTES IN RANGE 
13 07DC 634 BEQL 20% [BRANCH IF NON E LOCKED 
50 SO F7 8F 78 O7DE 625 ASHL. #-9,R0,RO [NUMBER OF PAGES -1 
50 01 C1 O7E 626 ADDL3 #1,R0,(R10)+ STORE NUMBER OF PAGES 
O7E7 627 RANGECHK OFF - 
0010'CF 08 CA O7E7 BICL § #CTLSM_RNGCHK,W*CTLFLG 
O7EC 628 ULWSET INADR=W*RETRANGE sUNLOCK THE ONES THAT WERE LOCKED 
3 09 3C O7eC MOVZWL S“A#SS$ WASSET. R3 
50 Od008'CF DE O7EF MOVAL W*RETRANG 
51 0008'CF DE O7F4 MOVAL URETRANCE. Ry 
F DEF O7F9 BSBW ULWSETSUBR 
O7FC 629 RANGECHK ON 
0010°CF 08 c8 7FC BiSL § #CTLSM_RNGCHK,W°CTLFLG 
05 0801 630 RSB 
BA 04 0802 631 20$: CLRL  (R10)+ :NO PAGES LOCKED 
05 0804 63¢ RSB 
0805 63 
0805 634 .END = START 
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| Syubol te Rapid glean eB 4 Regence. Bese} EES YRNGTS? . SRC IRMCADJUSL MARS 1 (78) 
Symbol table 
1C R 
Rear . 38 4 88 mscpure FAR ; 
ste = f ' MSGBLFD DC R 26 
SS. TRPI 2 of NSGBUF 1D EC R i 
+ ind i MSGBUFSIZ = A 4c 
| Seeinre . SGLEN D8 R 02 
ii * HES arte » HSE ; 
ADJWSLERR = 
ADJWSLERRADR R 8 PASSCNT 000 Ht R g 
AD JUStSUBR = Bopoorss ROS PIDCTL 0000300 R.s«OO : 
| pence = 04 PIDCTLADR 900 0588 R 03 99 
tki 800 gr R 0 PIDCTLSIZ + 00 2 
CHECK? 000 0666 R 83 PIDMSG 90000086 R 02 sf 
CRE TVAERR SO0800K $3 PREC ONE = 00000010 
CRE TVAERRADR 000000A R PRISC. 90000010 7 
ERETVASUBR = MOCCOSAE R03 RABSB_RAC = 0000001E 
ama 090000 CR 02 RABSC~BID : 90000001 
CILSACPIOR = 8098004 RABSC nea = 00000000 
CTL SATRNGC NE 6 RABSL~CTX = 00000018 
CTL SACT SLOOP = 9009008 RABSL ~RBF = 90000028 
EILSv-PIONSe = 0900000 RABSU-ReT = 00000022 
ETE SV -RNGCHE = 0000000 RANGE CHK 00000688 R —Ss«OB 
EItSv-Teic00 = 00000001 RANGERR 000003¢4 RO 
nthe “ $000 10 R 0 RANGERRADR O00002BE R 03 
set ttn 00000394 R 88 RANGERRSIZ = 0000004F 
PEL VAERRADR 00000060 Rs«GS RETRANGE 99000008 R 92 
DEL TVASUBR. : a9900068 R03 RUNT RSG 00000304 R sé 
PRPREGERR $00 B35¢ R 03 RUN1 “MSGADR 00000346 R 03 
EXPREGERR itd 03 RUN1~MSGSIZ = 00000042 
EXPRECERRSTE : 0000078 x SAVERD 90000014 R 02 
psy aitttitee R §3 Ste aeevi0 = 0000000¢ 
= 00000003 SS$~EXQUOTA = 0000001¢ 
FABSe-BUN : 9900003 SS$-LKWSETFUL = 90900194 
FABSC VAR = 0900000 Sea = 00000244 
FABSCTALG = 8 1 S5$WASSET = 00000009 
“FOP 00004 START 000003E4 R 03 
FABSL FOP = 00 SYSSADJWSL essences gx 
FABSV-F SL MODE : B06 SYSSCONNECT eeeeeeer GX 
FABSV-LAM Robe > SYSSCRETVA teeeeeeer GX 0 
FABSV PUT” . $0000 SYSSDELTVA aeeeeeee GX 0 
FABSU" GBC = bono ° SYSSEXIT eeeeeeee GX 0 
hx 7 es : 0 SYSSEXPREG eeeneeee GX 0 
SGADR Ob R 63 SYSSFAO aeeeereer KX 0 
DAS pF SYS$FAOL teeeeeee GX 0 
IWRANee r SYSSLKWSET cereeeee GX 0 
Kw R 63 SYSSOPEN eeeneree GX 0 
LKWSETERR AG 03 a yesput pone he 0 
LKWSETERRADR og e SyeSRESUME cecanent an 
LEU E TSUBA * 00000507 R SYSSULWSET teeeenee GX 0 
HAXPAGLOCK 007C2 R 83 TOUCH_EACH_PT 00000518 R 
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GAD JWSL 16-SEP-1984 02:01:5 AX/VMS Macro V04-00 Pa 5 
Symbol table mets 7 84:0) 328 ERMGTST. SREIMMGADJWSL. MAR: 1 ac Fd) 
| TYPEMSGBUF 788 R 
ULWSETERR 3AC R 
ULWSE TERRADR 134 R 
ULWSETERRSIZ 06 
ULWSE TSUBR o> 3 R 83 
WRKSETDEF 8 R 
WRKSETLIM 4R 8 
WRKSE TMAX 0000050 R 
| WRKSE TMAXADD 3 R 
MIN 38 R 
teat Se | 
WSETLMCTLSIZ inti 
te rw mn mcm ee wre nme % 
! Psect synopsis ! 
borne nnn oreo ener aw + 
PSECT name Allocation PSECT No. Attributes 
~ 2b. >s 00000000 <( 0.) 00 ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABS$ 00000000 ( 0.) O1 leo? PIC USR CON’ ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
DATAO Q000019A ¢ 419-3 02 ¢ ¢°} NOP IC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC PAGE 
CODE 00000805 ( 2053.) 03 ¢ 3.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC PAGE 
Perna er ee noe nan we o nantes 
Performance indicators ! 
Initialization 19 00:00:00.0 00:00:01.20 
Command processing 7 00:00:00.7 ee Sees 
Pass 331 i SPT 00:00:40.5 
Symbol table sort 0 0:00:01. 00:00:03.23 
Pass 139 Bo 28 Be OP 00:00:08.19 
Symbol table output 16 00:00:00.11 00:00:00.24 
Psect synopsis output 00:00:00.03 00:00:00.03 
Cross-reference output bs So se Ss 
Assembler run totals 57 00:00:16.1 00:00:57.4 


The working set Limit was 1350 pages. : 

65169 bytes (128 pages) of virtual memory were used to buffer the intermediate code. 

There were 50 pages of symbol table space alloca Y to hold 879 non-local we 18 local symbols. 
source lines were read in Pass 1, producing object records in Pass 2. 

49 pages of virtual memory were used to define 42 macros. 


Seer ec nee eee ee Be ee eH eS ee Cee 


Macro Library name 
$255$DUA28:(SYS.OBJJLIB.MLB;1 
“Fees ouAdB LeveL IBISTARLET ALB; 2 $3 
TOIALS ‘al! Libraries) 
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ro V04-00 Page # Lala 
“SEP- MMGTST.SRC JMMGADJWSL.MAR; 1 (18) 


~~ WSL 

VAK- : Macro Run Statistics vo 
1152 GETS were required to define 30 macros. 

There were no errors, warnings or information messages. 


MACRO/LIS=LISS:MMGADJWSL/OBJ=OBJ$:MMGADJWSL MSRCS$:MMGADJWSL/UPDATE=(ENH$:MMGADJWSL) +EXECMLS$/LIB 
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